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CHAPTER  1 
INTRODUCnOJ 


Ihis  Validation  Summary  Report  describes  the  extent  to  which  a 

specific  Ada  compiler  conforms  to  the  Ada  Standard,  ANSI/MIIr-STD-iaiSA. 
Uiis  report  explains  all  technicad  terms  used  within  it  and  thorocK^y 
reports  the  results  of  testing  this  ccnpiler  using  the  Ada  COitpiler 
Validation  Capability  /  An  Ada  ccnpiler  must  be  implemented 

according  to  the  Ada  Standard,  and  any  inplementaticn-dependent  features 
must  conform  to  the  requirements  of  the  Ada  Standard.  The  Ada  Standard 
must  be  implemented  in  its  entirety,  and  nothing  can  be  inplemented  that 
is  not  in  the  Standard.' 

^Even  thou^  all  validated  Ada  caipilers  conform  to  the  Ada  Standard,  it 
must  be  understood  that  some  differences  do  exist  between 

implementations.  The  Ada  Standard  permits  sane  irplementation 
dependencies — for  example,  the  maximum  length  of  identifiers  or  the 
maximum  values  of  int^er  types.  Other  differences  between  cotpilers 
result  from  the  characteristics  of  particular  operating  systems, 
hardware,  or  irplemerjtation  strategies.  All  the  dependencies  observed 
during  the  process  of  testing  this  cotpiler  are  given  in  this  report.  ' 


This  information  in  this  report  is  derived  from  the  test  results 
produced  during  validation  testing.  The  validation  process  includes 
submitting  a  suite  of  standardized  tests,  the  ACVC,  as  inputs  to  an  Ada 
ccnpiler  and  evciluating  the  results.  ''-  The  purpose  of  validating  is  to 
ensure  conformity  of  the  cotpiler  to  the  Ada  Standard  by  testing  that 
the  compiler  properly  implements  legal  language  ccnstructe  and  that  it 
identifies  and  rejects  illegal  language  constructs.  The  testing  also 
identifies  behavior  that  is  impleroentaticn  dependent  but  permitted  by 
the  Ada  Standard.  Six  classes  of  test  are  used.  These  tests  are 
designed  to  perform  checks  at  compile  time,  at  link  time,  and  during 
execution.  ^ 


1.1  FURPOSE  OF  IHrS  VALLDMTLOti  SUT-MARY  REPORT 


Hiis  VSR  docuinents  the  results  of  the  validation  testing  performed  on  an 
Ada  cxaipiler.  Testing  was  carried  out  for  the  following  purposes; 

To  attempt  to  identify  any  Icinguage  constructs  supported  by 
the  ccnpiler  that  do  not  conform  to  the  Ada  Standard 

To  attenpt  to  identify  any  unsufported  language  constructs 
required  by  the  Ada  Standard 

To  determine  that  the  implementation-d^jendent  behavior  is 
allowed  by  the  Ada  Standard 


Testing  of  this  ccnpiler  was  conducted  by  the  National  Bureau  of 
Standards  according  to  policies  and  procedures  established  by  the  Ada 
Vcilidation  Organization  (AVD) .  On-site  testing  was  completed  on  16  July 
1988  at  InterACT  Corporation,  New  York,  New  York. 


1.2  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  country,  the  AVO 
may  make  full  and  free  public  disclosure  of  this  report.  In  the  United 
States,  this  is  provided  in  accordance  with  the  "Freedom  of  Information 
Act"  (5  U.S.C.  #552).  The  results  of  this  validation  apply  only  to 
the  caiputers,  operating  systems,  and  ccnpiler  versions  identified  in 
this  report. 

The  organizations  represented  on  the  signature  page  of  this  report  do 
not  represent  or  warrant  that  eill  statements  set  forth  in  this  report 
are  accurate  and  ccnplete,  or  that  the  subject  ccnpiler  has  no 
nonconformities  to  the  Ada  Standard  other  than  those  presented.  Copies 
of  this  report  are  available  to  the  public  frcm: 

Ada  Information  Clearinghouse 
Ada  Joint  Program  Office 
OUSCRE 

The  Pentagon,  Rra  3D-139  (Fern  Street) 

Washington  DC  20301-308], 


Software  Standards  Vedidation  Group 
Institute  for  Computer  Sciences  and  Technology 
National  Bureau  of  Standards 
Building  225,  Roan  A266 
Gaithersburg,  Mcur/land  20899 


or  from: 


Questions  regarding  this  report  or  the  validation  test  results  should  be 
directed  to  the  AVF  listed  above  or  to: 

Ma  Validation  Organization 
Institute  for  Defense  Analyses 
1801  North  Beauregard  Street 
Alexandria  VA  22311 


1.3  PEFERENCES 


1 .  Reference  Manual  for  the  PrTxnrammincr  ranauaoe. 
ANSI/MTL-STD-iaiSA,  February  1983  and  ISO  3652-1987. 

2.  Ala  Conpiler  Validation  Procedures  and  Guidelines.  Ada  Joint 
Program  Office,  1  January  1987. 

3.  Ada  Conpiler  Validation  Capability  Implementers *  Guide. , 
December  1986. 


1.4  DEFINinCN  OF  TERMS 


ACVC  The  Ada  Conpiler  Validation  Capability.  Ihe  set  of  Ada 

programs  that  tests  the  conformity  of  an  Ada  conpiler  to 
the  Ada  programming  language. 

Ada  Conmentary  An  Ada  Conmentary  contains  all  information  relevant  to 
the  point  addressed  by  a  ccmroent  on  the  Ada  Standard. 
These  comments  are  given  a  unique  identification  number 
having  the  form  Al-ddddd. 

ANSI/MIL-STD-1815A,  February  1983  and  ISO  8652-1987. 

The  agency  requesting  validation. 

The  Ada  Vcilidaticn  Facility.  The  AVF  is  responsible  tor 
conducting  compiler  validations  according  to  procedures 
contained  in  the  Ada  Conpiler  Validation  Procedures  and 
Guidelines. 

The  Ada  Veilidation  Organization.  The  AVO  has  oversight 
authority  over  all  AVF  practices  for  the  purpose  of 
maintaining  a  uniform  process  for  validation  of  Ada 
ccnpilers.  The  AVD  provides  administrative  and 
technical  support  for  Ada  Vcilidations  to  ensure 
consistent  practices. 


Ada  Standard 

Applicant 

AVF 

AVD 
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Catpiler 


A  processor  for  the  Ada  language-  In  the  context  of 
this  r^»rt,  a  ccnpiler  is  any  language  processor, 
including  cross-compilers,  translators,  and 
interpreters. 

Failed  test  An  ACVC  test  for  which  the  canpiler  generates  a  result 
that  demonstrates  nonconformity  to  the  Ada  Standard. 

Host  Ihe  ccmputer  on  which  the  canpiler  resides. 

Inapplicable  An  AC7C  test  that  uses  features  of  the  language  that  a 
test  compiler  is  not  required  to  support  or  may  legitimately 

support  in  a  way  other  than  the  one  expected  by  the 
test. 

language  Ihe  Language  Maintenance  Panel  (IMP)  is  a  conmittee 

Maintenance  established  by  the  Ada  Board  to  recommend 

interpretations  and  Panel  possible  changes  to  the 
ANSI/MD>STD  for  Ada. 

Passed  test  An  ACVC  test  for  which  a  canpiler  generates  the  expected 
result. 

Target  The  computer  for  which  a  canpiler  generates  code. 

Test  An  Ada  program  that  checks  a  compiler's  conformity 

regarding  a  particular  feature  or  a  ccmbination  of 
features  to  the  Ada  Standard.  In  the  context  of  this 
report,  the  term  is  used  to  designate  a  single  test, 
which  may  cotprise  one  or  more  files. 

An  ACJC  test  found  to  be  incorrect  and  not  used  to  check 
conformity  to  the  Ada  Standard.  A  test  may  be  incorrect 
because  it  has  an  invalid  tasr  objective,  fails  to  meet 
its  test  cbjective,  or  ccntains  illegal  or  errcnecus  use 
of  the  language. 


1,5  AC7C  TEST  CLASSES 

Conformity  to  the  Ada  Standard  is  measured  using  the  AC/C.  The  AC/C 
ccntains  both  legal  and  illegal  Ada  programs  structured  into  six  test 
classes:  A,  B,  C,  D,  E,  and  L.  The  first  letter  of  a  test  name 
identifies  the  class  to  which  it  belongs.  Class  A,  C,  D,  and  E  tests 
are  executable,  and  speciaLL  program  units  are  used  to  report  their 
results  during  execution.  Class  B  tests  cure  expected  to  produce 
compilation  errors.  Class  L  tests  cure  expected  to  produce  ccmpilation 
or  link  errors. 

Class  A  tests  check  that  legal  Ada  programs  can  be  successfully  ccinpiled 
cind  executed.  There  aura  no  explicit  program  ccnponents  in  a  Class  A 


'CitMrawn 

test 
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test  to  dieck  seitantics.  For  example,  a  Class  A  test  checks  that 
reserved  words  of  einother  language  (other  than  those  aLLready  reserved  in 
the  Ada  language)  are  not  treated  as  reserved  words  by  an  Ada  ccnpiler. 
A  Class  A  test  is  passed  if  no  errors  are  detected  at  cotpile  time  and 
the  program  executes  to  produce  a  PASSED  message. 

Class  B  tests  check  that  a  conpiler  detects  illegal  language  usage. 
Class  B  tests  are  not  executable.  Each  test  in  this  class  is  ccitpiled 
and  the  resulting  ccnpilaticn  listing  is  examined  to  verify  that  every 
syntax  or  semantic  error  in  tlie  test  is  detected.  A  Class  B  test  is 
passed  if  every  illegal  construct  that  it  contains  is  detected  by  the 
caipiler. 

Class  C  tests  check  that  legal  Ada  programs  can  be  correctly  corpiled 
and  executed.  Each  Class  C  test  is  self-checking  and  produces  a  PASSED, 
FAILED,  or  NOT  APPLICABLE  massage  indicating  the  result  when  it  is 
executed. 

Class  D  tests  check  the  ccnpilaticn  and  execution  capacities  of  a 
ccnpiler.  Since  there  are  no  capacity  requirements  placed  on  a  compiler 
by  the  Ada  Standard  for  some  parameters — for  example,  the  number  of 
identifiers  permitted  in  a  ccmpilation  or  the  number  of  units  in  a 
library — a  ccnpiler  may  refuse  to  coipile  a  Class  D  test  and  still  be  a 
conforming  ccnpiler.  Therefore,  if  a  Class  D  test  fails  to  ca^ile 
because  the  capacity  of  the  ccnpiler  is  exceeded,  the  test  is  classified 
as  inapplicable.  If  a  Class  D  test  compiles  successfully,  it  is 
self-checking  and  produces  a  PASSED  or  FAHED  message  during  execution. 

Each  Class  E  test  is  self-checking  and  produces  a  NOT  APPLICABLE, 
PASSED,  or  FATTED  message  when  it  is  ccaipiled  and  executed.  However, 
the  Ada  Standard  permits  an  impltmentation  to  reject  programs  containing 
seme  features  addressed  by  Class  E  tests  during  ccnpilaticn.  Iherefore, 
a  Class  E  test  is  passed  by  a  ccnpiler  if  it  is  ccrapiled  successfully 
and  executes  to  produce  a  PASSED  message,  or  if  it  is  rejected  by  the 
ccnpiler  for  an  allowable  reason. 

Class  L  tests  checd^  that  inccmplete  or  illegal  Ada  pregrams  involving 
multiple,  separately  ccnpiled  units  are  detected  and  not  allowed  to 
execute.  Class  L  tests  are  ccnpiled  separately  and  execution  is 
attempted.  A  Class  L  test  passes  if  it  is  rejected  at  link  time — that 
is,  cin  attempt  to  execute  the  main  program  must  generate  an  error 
message  before  any  declarations  in  the  main  program  or  any  units 
referenced  by  the  main  program  are  elaborated. 

Two  library  units,  the  package  REPORT  and  the  procedure  CHECK  FILE, 
support  the  self-checking  features  of  the  executable  tests.  The  package 
RETCRT  provides  the  mechanism  by  which  executable  tests  report  PASSED, 
FATTED^  or  NOT  APPLICABLE  results.  It  also  provides  a  set  of  identity 
functions  used  to  defeat  some  compiler  optimizations  allowed  by  the  Ada 
StardcLcd  that  would  circumvent  a  test  dajective.  The  procedure  CHECK 
file  is  used  to  check  the  contents  of  text  files  written  by  seme  of  the 
Class  C  tests  for  chapter  14  of  the  Ada  Standard.  The  operation  of 


REPORT  and  CHECK_FIIE  is  checked  by  a  set  of  executable  tests.  These 
tests  produce  messages  that  are  examined  to  verify  that  the  units  cure 
operating  correctly.  If  these  units  are  not  operating  correctly,  then 
the  validation  is  not  attempted. 

The  text  of  the  tests  in  the  AC/C  follow  conventions  that  are  intended 
to  ensure  that  the  tests  are  reasonably  portable  without  modification. 
For  example,  the  tests  make  use  of  cnly  the  basic  set  of  55  characters, 
contain  lines  with  a  maximum  length  of  72  cheiracters,  'jse  small  numeric 
values,  and  place  features  that  may  net  be  supported  by  all 
implementations  in  separate  tests.  However,  sane  tests  (contain  values 
that  reejuire  the  test  to  be  customized  according  to 
inplementaticn-specific  values — for  exanple,  an  illegail  file  name.  A 
list  of  the  values  used  for  this  validation  is  provided  in  Appendix  C. 

A  (zempiler  must  correctly  proc:ess  each  of  the  tests  in  the  suite  and 
demenstrata  (zenformity  to  the  Ada  Standard  by  either  meeting  the  pass 
criteria  given  for  the  test  or  by  shewing  that  the  test  is  inapplicable 
to  the  implementation.  The  applicability  of  a  test  to  an  implementation 
is  (zonsidered  each  time  the  inplementation  is  validated.  A  test  that  jjs 
inapplicable  for  one  validation  is  nc3t  neczessarily  inc^pliczable  for  a 
subseejuent  validation.  Any  test  that  was  determined  to  contain  an 
illegal  language  construct  or  an  erroneous  language  construed:  is 
withdrawn  from  the  AC/C  and,  therefore,  is  not  used  in  testing  a 
compiler.  The  tests  withdrawn  at  the  time  of  validation  are  given  in 
Appendix  D. 
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CHAPTER  2 


OCNFIGUPATION  INFORMATIC^I 


2.1  OONFIGURAITON  TESTED 

The  candidate  ccnpilation  system  for  this  validation  was  tested  under 
the  following  configuration: 


Ccnpiler:  InterACT  Ada  1750A  Ccmpiler  System,  Release  3.0 
ACVC  Version:  1.9 

Certificate  Number:  88071551.09153 

Host  Computer: 

Machine:  VAX  11/785 

Operating  System:  VMS 

Version  4.5 

Memory  Size:  16  MB 


Target  computer: 

Machine:  Fairchild  F9450/1750A 

Operating  System:  none 
Memory  Size:  64  KB 


Ccmraunications  Network:  VAX/64000  Interface  Soft.^are 

The  A.C.T.  Ada  ccmpiler  and  linker  run  on  '/AX/VMS  and  produce  1750A  load 
module  files  on  the  VAX.  These  load  modules  are  in  ACT  1750A  Linker 
format:.  An  ACT  proprietary  tool,  ADA_H,  is  then  run  on  the  V70<  to 
produce  load  modules  files  in  Hewlet  Pac3card  (HP)  64000  format.  IIP's 
VAV64000  interface  softwcire  is  then  used  to  transfer  the  load  module  to 
the  HP  64000  Workstation,  containing  the  1750A  chip  (a  Fairchild  9450)  , 
run  the  load  mocJule  on  the  1750A  processor,  and  then  transfer  output 
from  the  run  bach  to  the  host  VAX.  This  transfer-run-transfer  secjuerxze 
is  entirely  under  VAX/VMS  control  and  requires  no  iranual  intervention  at 


2-1 


the  vrorkstation.  Hie  output  produced  during  a  run  is  created  usirvg 
64000  simulated  disk  I/O.  A  HP  64286A  Elnulation  Probe  with  a  64271/AB 
control  board  is  used  to  house  the  1750A  chip.  Hiis  unit  is  attached  to 
the  HP  64000  Workstation. 


2.2  JMPtZMEMIATION  OiARACTERISTICS 

One  of  the  purposes  of  validating  catpilers  is  to  determine  the  behavior 
of  a  ccnpiler  in  those  areas  of  the  Ada  Standard  that  permit 
inplementations  to  differ.  Class  D  and  E  tests  specificzilly  check  for 
such  implementation  differences.  However,  tests  in  other  classes  cilso 
characterize  an  implementation.  Hie  tests  demonstrate  the  follcwing 
characteristics : 


Capacities. 

The  compiler  correctly  processes  tests  containing  loop 
statements  nested  to  65  levels,  block  statements  nested  to  65 
levels,  and  recursive  procedures  s^jarately  coipiled  as  subunits 
nested  to  10  levels.  It  correctly  processes  a  compilation 
containing  723  vcuriables  in  the  same  declarative  part.  (See 
test  D55A03A.  .H  (8  tests) ,  D66001B,  D64005E.  .G  (3  tests)  ,  and 
D29002K. ) 


Universal  integer  calculations. 

An  irtplementation  is  allowed  to  reject  universal  integer 
calculations  having  values  that  exceed  SYSTEM. MAX_IMr.  Hiis 
implementation  processes  64  bit  integer  calculations.  (See  tests 
D4A002A,  D4A002B,  D4A004A,  and  D4A004B.) 


Predefined  types. 

Hiis  implementation  supports  the  additional  predefined  types 
LCNG_INrB3ER  and  ICNG_FICAT  in  the  package  STANDARD.  (See 
tests  B86001BC  and  B86001D.) 


Based  literals. 

An  implementation  is  cillcwed  to  reject  a  based  literal  with  a 
value  exc::eeding  SYSTEM. MAX_INr  ciuring  ccmpiiation,  or  it  may 
raise  NUMERIC^ERRCR  or  (XNSTRAINr_EIRRCR  during  execution.  Hiis 
implementation  raises  NUMERIC_ERRDR  during  execution.  (See  test 
E24101A.) 
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Expression  evaluation. 


Apparently  cill  defaiilt  initialization  expressions  or  record 
ccnponents  ctre  eveduated  before  any  value  is  chetdced  to  belong 
to  a  conponent's  subtype.  (See  test  C32117A.) 

Assignments  for  subtypes  are  perforTied  with  less  precision  than 
the  base  type.  (See  test  C35712B.) 

This  inplementation  uses  no  extra  bits  for  extra  precision. 
This  implementation  uses  all  extra  bits  for  extra  range.  (See 
test  C35903A.) 

Appcirently  NUMERIC_ERPDR  is  raised  when  an  integer  literal 
operand  in  a  ccnparison  or  membership  test  is  outside  the  range 
of  the  base  type.  (See  test  C45232A. ) 

Apparently  NLiMERIC_ERRCR  is  raised  when  a  literal  operand  in  a 
fixed-point  ccmparison  or  membership  test  is  outside  the  range 
of  the  bcLse  type.  (See  test  C45252A.) 

Appcirently  underflow  is  not  gradual.  (See  tests  C45524A.  .Z.) 


Rounding. 

Ihe  method  used  for  rounding  to  integer  is  apparently  rouxxi  away 
from  zero.  (See  tests  C46012A. .Z.) 

"Ihe  method  used  for  rounding  to  longest  integer  is  apparently 
round  away  from  zero.  (See  tests  C46012A.  .Z.) 

The  method  used  for  rounding  to  integer  in  static  universal  recil 
expressions  is  appcirently  round  away  from  zero.  (See  test 
C4A014A. ) 

Array  types. 

An  implementation  is  allowed  to  raise  NL'MERIC_ERRDR  or 
OCNSTRAINr__ERRCR  for  an  array  having  a  'LENGIH  that  exceeds 
STANDARD.  INTEGER 'LAST  and/or  SYSTEM.  MAX_INr.  For  this 
implementatioi  i : 

NUMERIC_ERRCR  is  raised  when  'LENGTH  is  applied  to  an  array  type 
with  INIEGER'LAST  +  2  cdtpcnents.  (See  test  C36202A. ) 

NL'MERIC_ERRCR  is  raised  vhen  'LENGIH  is  applied  to  an  array  type 
with  SYSTEM. MAX_INr  +  2  ccnponents.  (See  test  C36202B.) 

A  packed  BOOLEAN  array  having  a  'LENGIH  exceeding  INTEGER' LAST 
raises  NUMERIC_ERROR  when  the  array  objects  are  declaured.  (See 
test  C52103X.) 
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A  packed  two-dimensioncil  BOOLEAN  array  with  roore  than 
INTEGER' LAST  ccmponents  raises  NtlMERIC_ERRCR  when  the  cirray 
subtypes  are  declared.  (See  test  C52104y.) 

A  null  array  with  one  dimension  of  length  greater  than 
INTEGER 'LAST  may  raise  NtIMERIC_ERRDR  or  aDNSTRAINT_ERROR  either 
when  declared  or  assigned.  Alternatively,  an  inpleinentation  may 
accept  the  declaration.  However,  lengths  must  match  in  array 
slice  cissicnments.  This  isplsnentation  raises  NUMERIC_ERROR 
when  the  array  type  is  declared.  (See  test  E52103Y.) 

In  assigning  one-dimensional  array  types,  the  expression  appears 
to  be  evciluated  in  its  entirety  before  caNSTRAINr_ERE?OR  is 
raised  when  checking  vhether  the  expression's  subtype  is 
compatible  with  the  teurget's  subtype.  In  assigning 
feyo-dimensional  array  types,  the  expression  does  not  appear  to 
be  evaluated  in  its  entirety  before  CCNSTRAINr_ERROR  is  raised 
when  checking  whether  the  expression's  subtype  is  ccnpatible 
with  the  target's  subtype.  (See  test  C52013A. ) 


Discriminated  types. 

During  catfDilation,  an  implementation  is  allowed  to  either 
accept  or  reject  an  inccmplete  type  with  discriminants  that  is 
used  in  an  access  type  definition  with  a  ccnpatible  discriminant 
constraint.  This  implementation  accepts  such  subtype  indications 
indications  during  ccmpilation.  (See  test  E38104A.) 

In  assigning  record  types  with  disciminants,  the  expression 
appears  to  be  evaluated  in  its  entirety  before  CXNSTRAINr_ERRDR 
is  raised  when  checking  whether  the  expression's  subtype  is 
ccmpatible  with  the  target's  subtype.  (See  test  CS2013A. ) 


Aggregates. 

In  the  evaluation  of  a  multi-dimensional  aggregate,  index 
subtype  checks  appear  to  be  made  as  choices  are  evaluated.  (See 
tests  C43207A  and  C43207B.) 

In  the  evcduaticn  of  an  aggregate  containing  subaggregates,  aill 
choices  are  evaluated  before  being  checked  for  identic^  bounds. 
(See  test  E43212B.) 

All  choices  eira  evaluated  before  CCNSTRAINr_ERRCR  is  raised  if  a 
bound  in  a  ncnnull  range  of  a  nonnull  aggregate  does  not  belong 
to  cin  index  subtype.  (See  test  E43211B.) 
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R^resentation  clauses. 


An  inplementaticn  legitiniately  place  restrictions  on 

r^resentation  clauses  used  by  sane  of  the  tests.  If  a 
r^resentation  clause  is  not  supported,  then  the  implementation 
must  reject  it. 

Enumeration  representation  clauses  containing  noncontiguous 
values  for  enumeration  types  other  than  character  and  boolean 
types  ctre  supported.  (See  tests  C35502I. .  J,  C35502M.  .N,  and 
A39005F. ) 

Enumeration  representation  clauses  containing  noricontiguous 
values  for  character  types  are  supported.  (See  tests 
C35507I..J,  C35507M-,N,  anlC55B16A.) 

Enumeration  representation  clauses  for  boolean  types  containing 
representationcil  values  other  than  (FALSE  =>  0,  TFUE  =>  1)  are 
not  supported.  (See  tests  C35508I..J  and  C35508M.  .N.) 

Length  clauses  with  SIZE  specifications  for  enumeration  types 
are  not  supported.  (See  test  A390053.) 

Length  clauses  with  ST0RAGE_SIZE  specifications  for  access  types 
are  supported.  (See  tests  A39005C  and  CS7B62B.) 

length  clauses  with  ST0RAGE_SIZE  specifications  for  task  types 
are  supported.  (See  tests  A39005D  and  C37B62D.) 

length  clauses  with  SMALL  specifications  are  supported.  (See 
tests  A39005E  and  C87B62C.) 

Record  representation  clauses  are  supported,  however  the 
alignment  clause  is  not  si^pported.  (See  test  A39005G.) 

Length  clauses  with  SIZE  specifications  for  derived  integer 
types  are  not  siKported.  (See  test  C37B62A. ) 


Pragmas. 


The  pragma  INLEME  is  not  supported  for  procedures.  Ihe  pragma 
INLINE  is  not  supported  for  functions.  (See  tests  IA3004A, 
LA3004B,  EA3004C,  EA3004D,  CA3004E,  and  CA3004F.) 


Input/ output. 

The  package  SIX?JENriAL_IO  can  be  instantiated  with  unconstrained 
eurray  types  and  record  types  with  discrimincints  without 
defaults.  (See  tests  AE2101C,  EE2201D,  and  EE2201E.) 
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The  package  DIRECr_IO  can  be  instantiated  with  unconstrained 
array  types  and  record  types  with  discriminants  without 
defaults.  (See  tests  AE2101H,  EE2401D,  and  EE2401G.) 

The  director,  AJPO,  has  determined  (AI-00332)  that  every  mTT  to 
OPEN  and  O^EATE  must  raise  USE_ERRCR  or  NAME_ERROR  if  file 
input/output  is  not  supported.  This  impleroentation  exhibits 
this  behavior  for  SBQUEMrLAL_IO,  DIRECT_IO,  and  TEXr_IO. 


-  Generics. 


Generic  subprogram  declarations  and  bodies  can  ccnpiled  in 
separate  ccnpilations.  (See  tests  CA1012A  and  CA2009F.) 

Generic  package  declarations  and  bodies  can  be  caipiled  in 
separate  ccnpilations.  (See  tests  C3^009C,  BC3204C,  and 

BC3205D. ) 


Generic  unit  bodies  and  their  subunits  can  be  ccstpiled  in 
s^arate  ccnpilations.  (See  test  CA3011A.) 


bogies 

Generic  cmta  must  be  conpiled  before 
instantiated. 


their  are 

Ut\>Vs 
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CHAPTER  3 


TEST  INFORMATION 


3.1  TEST  RESULTS 

Version  1.9  of  the  ACVC  cmtiprises  3122  tests.  When  this  cotpiler  vjas 
tests,  28  tests  had  been  withdrawn  because  of  test  errors.  The  AVF 
determined  that  507  tests  were  inapplicable  to  this  implementation.  All 
inapplic5±)le  tests  were  processed  during  VEilidation  testing. 
Modifications  to  the  code,  processing,  or  grading  for  10  tests  were 
required  to  successfully  demonstrate  the  test  objective.  (See  section 
3.6.) 

The  AVF  concludes  that  the  testing  results  demonstrate  acc^jtable 
conformity  to  the  Ada  Standard. 


3.2  SUMMARY  OF  TEST  RESULTS  BY  CLASS 


RESULT 

A 

B 

TEST  CLASS 
C  D 

E 

L 

TOTAL 

Passed 

107 

1048 

1360 

16 

11 

45 

2587 

Inapplicable 

3 

3 

493 

1 

6 

1 

507 

Withdrawn 

3 

2 

21 

0 

2 

0 

28 

TOTAL 

113 

1053 

1874 

17 

19 

46 

3122 

3.3  SUI®©PY  OF  TEST  RESUITS  EK  CHAPTER 


RESULT 

2 

3 

4 

5 

_ 6  . 

7 

CHAPTER 
3  9 

10  11 

12  . 

13 

14 

TOTAL 

f^issed 

184 

462 

490 

245 

164 

98 

139 

326 

132 

36 

233 

3 

75 

2587 

Inapplicable 

20 

no 

184 

3 

1 

0 

4 

1 

5 

0 

1 

0 

178 

507 

Withdrawn 

2 

14 

3 

0 

1 

1 

2 

0 

0 

0 

2 

1 

2 

28 

TOTAL 

206 

586 

677 

248 

166 

99 

145 

327 

137 

36 

236 

4 

255 

3122 

3.4  WITHDRAWN  TESTS 


The  following  28  tests  were  withdrawn  from  ACVC  Version  1.9  at  the  time 
of  this  validation; 


B28003A 

059043 

a7215E 

C45614C 

BOIOSA 


E28005C 

a5A03E 

07215G 

E66001D 

ADIAOIA 


a4004A 

a5A03R 

072153 

A74106C 

CE240IH 


O5502P 

07213H 

O8102C 

C35018B 

CE3208A 


A35902C 

07213J 

C41402A 

C87B04B 


O5904A 

072150 

C45332A 

CC1311B 


See  Append  TV  D  for  the  reason  that  each  of  these  tests  was  withdrawn. 


3.5  INAPPLICABLE  TESTS 

Sane  tests  do  not  apply  to  cdl  cotpilers  becav;se  they  maJce  use  of 
features  that  a  ccrtpiler  is  not  required  by  the  Ada  Standard  to  sv;pport. 
Others  may  depend  on  the  result  of  another  test  that  is  either 
inapplicable  or  withdrawn.  The  applicability  of  a  test  to  an 
implementation  is  considered  each  time  a  validation  is  attempted.  A 
test  that  is  inapplicable  for  one  validation  attempt  is  not  necessarily 
inapplicable  for  a  subsequent  attempt.  For  this  validation  attempt,  507 
test  were  inapplicable  for  the  reasons  indicated: 


C35508I..J  (2  tests)  and  C35508M.  .N  (2  tests)  use  enumeration 
representation  clauses  for  derived  types  which  are  not  si^jported  by  this 
compiler. 

C35702A  uses  SHCRr_FICiAT  which  is  not  suK»rted  by  this  implementation. 
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C35A06N  ocnpiled  code  exceeds  the  64K  memory  capability  of  the  target. 

C36003A  type  declaration  exceeds  the  capability  of  the  corpiler. 

A39005B  and  C87B62A  use  length  clauses  with  SIZE  specifications  whicii 
are  not  supported  by  this  catpiler. 

C87B62B  defines  an  access  type's  collection  size  using  a  length  clause, 
where  the  length  clause  value  is  the  collection  size  of  another  access 
type  that  does  not  have  a  collection  size  length  clause.  Ihe  catpiler 
defines  collection  size  in  the  latter  case  as  arbitrarily  large;  as  a 
consequence,  the  attenpt  to  use  it  in  a  collection  size  length  clause 
raises  STORAGE_ERROR,  as  an  arbitrarily  large  object  cannot  be  allocated 
by  the  compiler  (the  limit  is  32K  words) . 

A39005G  uses  an  alignment  clause  which  is  not  supported  by  this 
catpiler. 

Hie  following  (14)  tests  use  SHOKTJENTEGER,  vAiich  is  not  supported  by 
this  cottpiler. 

C45231B  C45304B  C45502B  C45503B  C45504B 

C45504E  C45611B  C45613B  C45614B  C45631B 

C45632B  B52004E  C55B07B  B55B09D 

C45231D  requires  a  macro  substitution  for  any  predefined  numeric  types 
other  than  INTEGER,  SHORT_INrEGER,  IDNG_INTEGER,  FUDAT,  SHDRT_FmAT,  and 
ICNG_FI£iAT.  This  catpiler  does  not  sup^rt  any  such  types. 

C45531M,  C45531N,  C45532M,  and  C45532N  use  fine  48-bit  fixed-point  base 
types  ^rtiich  are  not  supported  by  this  catpiler. 

C455310,  C45531P,  C455320,  and  C45532P  use  coarse  48-bit  fixed-point 
base  types  which  are  not  supported  by  this  catpiler. 

D64005G  catpiles  successfully  but  does  not  link  in  the  64K  memory 
capability  of  the  target. 

B86001D  requires  a  predefined  numeric  type  other  than  those  defined  by 
the  Ada  language  in  package  STANDARD.  There  is  no  such  type  for  this 
iirplementation . 

C36001F  redefines  package  SYSTEM,  but  TEXT_IO  is  made  obsolete  by 
this  new  definition  in  this  implementation  and  the  test  cannot  be 
executed  since  the  package  REPORT  is  dependent  on  the  package  TEXT_IO. 

C96005B  requires  the  range  of  type  DURATION  to  be  different  from  those 
of  its  base  type;  in  this  implementation  they  are  the  same. 
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CA2009C  and  CA2009F  instantiate  generic  vnits  before  the  units'  bodies 
are  oooipiled.  This  ccanpiler  requires  that  such  bodies  be  conpiled 
before  the  unit  is  instantiated. 

CA3004E,  EA3004C,  and  rA3004A  use  the  HsLENE  pragma  for  procedures, 
vhich  is  not  supported  by  this  canpiler. 

CC1221k  ccsipiles  successfully  but  does  not  link  in  the  64K  memory 
capability  of  the  target. 

The  following  178  tests  are  inapplicable  because  sequential,  text,  and 
direct  access  files  are.  not  supported. 


CE2102C 

CE2105A.  .8(2) 

C22109A.  .C(3) 

CE211SA..B(2) 

CE2204A.  .8(2) 

EE2401D 

CE24058 

CE2409A 

CE31028 

CE3107A 

CE3111A..E(5) 

CE3203A 

CS3402A..D(4) 

CE340SA.  .0(4) 

CE3409A 

CE3411A 

CE3602A.  .0(4) 

CE3606A.  .8(2) 

CE3706D 

CE3804I 

CE3806A 

CS390€A-.C(3) 


CE2102G. .H(2) 
CE2106A..8(2) 
CE211CIA.  .C(3) 
CE2201A. .C(3) 
CE22088 
CE2401E. .F(2) 
CE2406A 
CE2410A 
EE3102C 
CE3108A. .8(2) 
CE3112A. .8(2) 
CE3301A.  .C(3) 
CE3403A.  .C(3) 
CE3406A. .0(4) 
C23409C.  ,F(4) 
CE3412A 
CE3603A 
CE3704A.  ,8(2) 
CE3706F 
C23804K 
CE28060..E(2) 
CS3906E..F(2) 


CE2102K 

CE2107A..I(9) 

CE2111A. .E(5) 

EE2201D..E(2) 

CE2210A 

EE2401G 

CE2407A 

CE2411A 

CE3103A 

CE3109A 

CE3114A.  .8(2) 

CE3302A 

CE3403E..F(2) 

CE3407A.  .C(3) 

CE3410A 

CE3413A 

CE3604A 

CS37040..F(3) 

CE3804A. .E(5) 

CE3804M 

CE3905A.  .C(3) 


CE2104A..O(4) 

CE2108A.  .0(4) 

CE2111G. .H(2) 

CE220IF..G(2) 

CE2401A. .C(3) 

CE2404A 

CE2408A 

AE3101A 

CE3104A 

CE3110A 

CE3115A 

CE3305A 

CE3404A..C(3) 

CE3408A..C(3) 

CE3410C.  .F(4) 

CE3413C  ' 

CE3605A. .E(5) 

CE3704M. .0(3) 

CE3804G 

CS2805A. .8(2) 

CE2905L 


The  following  285  tests  require  a  floating-point  accuracy  that  exceeds 
the  maximum  of  9  digits  supported  by  this  iitplementation; 


C24113F..Y  (20  tests) 
C35706F. .Y  (20  tests) 
C35708F. .Y  (20  tests) 
C45241F. .Y  (20  tests) 
C45421F. .Y  (20  tests) 
C45524F. .Z  (21  tests) 
C45641F. .Y  (20  tests) 


C35705F..Y  (20  tests) 
C25707F. .Y  (20  tests) 
C35802F..Z  (21  tests) 
C45321F.,Y  (20  tests) 
C45521F, .Z  (21  tests) 
C45621F. .Z  (21  tests) 
C46012F. .Z  (21  tests) 


3.6  TEST,  PROCESSING,  AND  EVAIiailON  M30IFICAITCNS 

It  is  expected  that  sane  tests  will  require  modifications  of  code. 
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processing,  or  evaluation  in  order  to  ccnpensate  for  legitimate 
implementation  behavior.  Modifications  are  made  by  the  AVF  in  cases 
vdiere  legitimate  implementation  behavior  prevents  the  successful 
completion  of  an  (otherwise)  applicable  test.  Examples  of  such 
modifications  include:  adding  a  length  clause  to  alter  the  default  size 
of  a  collection;  splitting  a  Class  B  test  into  sub-tests  so  that  aill 
errors  are  detected;  and  confirming  that  messages  produced  by  an 
executable  test  demonstrate  conforming  behavior  that  wasn't  anticipated 
by  the  test  (such  as  raising  one  exception  instead  of  anotiier) . 

Modifications  were  required  for  10  Class  B  tests. 

Hie  following  Class  B  tests  were  split  because  syntax  errors  at  one 
point  resulted  in  the  compiler  not  detecting  other  errors  in  the  test: 

B33301A  B55A01A  B67001A  B67001C  B67001D 

BA1101B2  EA1101B4  BC1109A  BC1109C  EC1109D 


3.7  ADDinCNAL  TESTING  INPOEMATION 

3.7.1  Prevalidation 

Prior  to  validation,  a  set  of  test  results  for  ACVC  Version  1.9  produced 
by  the  IntarACT  Ada  1750A  Ccnpiler  Systan  was  submitted  to  the  AVF  by 
the  applicant  for  review.  An^ysis  of  these  results  demonstrated  that 
the  compiler  successfully  passed  all  applicable  tests,  and  the  catpiler 
exhibited  the  expected  behavior  on  all  inapplicable  tests. 

3.7.2  Test  Method 

Testing  of  the  InterACT  Ada  1750A  Compiler  System  using  ACVC  Version  1.9 
was  ccnducted  cn-sita  by  a  validation  team  from  the  AVF.  The 
ccnfiguraticn  consisted  of  a  VAX  11/785  operating  under  VMS,  Version  4.5 
cind  a  Fairchild  Fg450/1750A  without  an  operating  system.  The  host  and 
target  ccmputars  were  linked  via  VAX  64000  Interface  Software  using  the 
HP  64000  Workstation. 

A  magnetic  tape  containing  all  tests  was  taken  on-site  by  the  validation 
team  for  processing.  Tests  that  make  use  of  implementation-specific 
values  were  customized  on-site  after  the  magnetic  tape  was  loaded. 
Tests  requiring  modifications  during  the  prevalidaticn  testing  were  not 
included  in  their  modified  form  on  the  magnetic  tape.  The  contents  of 
the  magnetic  tape  were  not  loaded  directly  onto  the  host  cotputer. 

After  the  test  files  were  loaded  to  disk,  the  full  set  of  tests  was 
ocnpiled  and  linked  on  the  VTOC  11/785,  aind  all  executable  tests  were  run 
on  the  Fairchild  F9450/1750A.  Object  files  were  linked  on  the  host 
compMter,  and  executable  images  were  transferred  to  the  tcirget  cotputer 
via  VAX  64000  Interface  Software.  Results  were  printed  from  the  host 
ocnputer,  with  results  being  transferred  to  the  host  ocnputer  via  VAX 


64000  Interface  Software. 

The  ccnpiler  was  tested  using  ocsmand  scripts  provicied  by  InterACT 
Corporation  and  reviewed  by  the  validation  team.  The  ocnpiler  was 
tested  using  adl  default  switch  settings. 

Tests  were  canpiled,  linked,  and  executed  as  apprcpriate  using  a  single 
host  oamputer  and  a  single  target  conputer.  Test  output,  ccnpilation 
listings,  and  jdo  logs  were  captured  on  magnetic  tape  and  archived  at 
the  AVF.  The  listings  examined  on-site  by  the  validation  team  were  also 
archived. 

3.7.3  Test  Site 

Testing  was  conducted  at  InterACT  Corporation,  New  York,  New  York  and 
was  cciipleted  on  16  July  1988. 


Testing  was  performed  in  a  mixed  batch  mode  with  other  on-going 
processes. 
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Appandlx  A 


DECLARATION  OF  CONFORMANCE 

Comp  I  I  Br  lmpl«ment«r:  InterACT  Corporation  _ 

Ada  Validation  Facility:  National  Bureau  or  Standards 

Ada  Compllar  Validation  Capab I  I  I ty  (ACVC)  Vara  I  on :  1-9 


Baaa  Configuration 

Baaa  Comp  i  I  ar  Name:  InterACT  AdalTSOA  Compiler  Svstem  Release  3.0 _ 

Host  Architecture  -  ISA:  VAX1 1  /78S  OSiVER  #:  VMS  4.5 _ 

Target  Architecture  -  ISA:  Feirrhild  QdSn/  OS&VER  »:  bar?  machine 

1750A 

Derived  Compllar  Raglatratlon 

Dar  Ived  Compiler  Name:  TntpvACT  fldaJTSOA  Compiler  Svsteai  Release  3.0 _ 

Host  Architecture  —  ISA:Anv  VAX  series  OS&VER  »:  A  .  3  or  greater \ 

Target  Architecture  -  ISA:Anv  SFAFAC  OSiVER  *:  No  OS  required _ 

certified  1750A 

Imp  I amantar ' a  Declaration 


InterACT  Coro. 


1,  the  undersigned,  repreaenting  _ 

Implemented  no  del  Ibarata  extensions  to  the  Ada  Language  Standard 
ANS I /M I L-STO- 1  a  1 5A  in  the  complIerCs)  listed  in  this  declaration. 
I  declare  that  TnterAfT  Coro.  Is  the  owner 

the  Ada  language  compllar (s)  listed  above 
responsible  for  maintaining  said  compilerli 


ANS I /Ml L-STO- 18  ISA. 
language  compllar(s} 
only  In  the  owner’s  cor 


of  record  of 
and,  as  such.  Is 
)  In  conformance  to 
All  certificates  and  rag  I atrat ) one  for  Ada 
listed  In  this  declaration  shall  be  made 


orate 


Owner's  Declaration 


I,  the  undersigned,  raoresentlng  r-rn.  talce  full 

responsibility  for  Implementation  and  maintenance  of  the  Ada 
comp llerls)  listed  above,  and  agree  to  the  public  disclosure  of 
the  final  Validation  Summary  Report.  1  further  agree  to  continue 
to  comply  with  the  Ada  trademark  po I  Icy,  as  defined  by  the  Ads 
Joint  Program  Office.  I  declare  that  all  of  the  Ada  language 

comp  i  I  er  s  listed,  and  the_Lr  haet-A-tar-ge  t  — per-f  ormance - »r-e - hn- 

campllanca  with  the  Ada  Language  Standard  ANS I /M I L-STO- 1 0 t 5A .  | 

have  r  Bv i awed  the  Validation  Summary  Report  for  the  comp i  I ar  (s) 


This  document  Is  part  of  the  Validation  Summary  Report  (VSR), 
Appendix  A,  for  Initial  val  Idatlons  and  must  be  submitted  for 
each  derived  compiler  registration  during  or  subsequent  to 
initial  valldatl on . 
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APPENDIX  F  OF  IHE  Ada  STANEARD 


The  only  allowed  implementation  dependencies  correspond  to 
implementation-dependent  pragmas,  to  certain  machine-d^jendent 
conventions  as  mentioned  in  chapter  13  of  the  Ada  Standard,  and  to 
certain  allowed  restrictions  on  representation  clauses.  Ihe 
implementation-dependent  characteristics  of  the  InterACT  Ada  1750A 
Compiler  System,  Release  3.0,  are  described  in  the  following  sections 
which  discuss  topics  in  Appendix  F  of  the  Ada  Standard.  Implementation- 
specific  portions  of  the  package  STANDARD  are  also  included  in  this 
appendix. 


package  STANDARD  is 


type  INTEGER  is  range  -32_768  ..  32_767; 

type  tDNG_INTEGER  is  range  -2_147_483_648  ..  2_147_483_647  ; 

type  FLOAT  is  digits  6  range  -1.0*2.0**127  .. 

0.999999*2.0**127; 

type  LONG_FIOAT  is  digits  9  range  -1.0*2.0**127  .. 

0.999999*2.0**127; 

type  DURATICN  is  delta  2** (-14)  range  -131_072.0  ..  131_071.0; 


end  STANDARD; 
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This  appendix  describes  all  implementation-dependent  characteristics  of  the  Ada  language  as  implemented  by 
the  InterACT  Ada  1750A  Compiler,  including  those  required  in  the  Appendix  F  frame  oiAda  RM. 


F.l.  Predefined  Types  in  Package  STANDARD 

This  section  describes  the  implementation-dependent  predefined  types  declared  in  the  predefined  package 
STANDARD  [Ada  RM  Annex  C],  and  the  relevant  attributes  of  these  types. 

Integer  Types 

Two  predefined  integer  types  are  implemented,  INTEGER  and  LONG_INTEGER.  They  have  the  following 
attributes: 


rNTEGER’HRST  =  -32  768 

INTEGER’LAST  =  32  767 

INTEGER-SIZE  =  16~ 


LONGJNTEGER-nRST 
LONG_INTEGER’LAST 
LONG  INTEGER-SIZE 


-2  147  483  648 
2_l47  ^3  647 
32  ~  ~ 


Floating  Point  Types 


Two  predefined  floating  point  types  arc  implemented,  FLOAT  and  LONG_FLOAT.  They  have  the  following 
attributes: 


FLOAT-DIGITS 

FLOAT’EPSILON 

FLOAT-RRST 

FLOAT-LARGE 

FLOATLAST 

FLOAT-MACHINE  EMAX 

floatnuchine'emin 

FLOATMACHINE  MANTISSA 


=  9.536743164fl6250E-07  • 

=  -1.0  *  2.0* *127 

=  l.9342S038904620E-h25 

=  0.999999  *  2.0*  *127 


=  -128 

=  23 
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FLOATMACHINE  OVERFLOWS 

= 

TRUE 

FLOATMACHINE  RADIX 

= 

2 

floatmachine'rounds 

= 

FALSE 

floatmantissa' 

= 

21 

floatsafe  emax 

= 

127 

FLO  ArSAFE'LARG  E 

= 

FLOATLAST 

floatsafe'small 

= 

0.5  *  2.0**(-l27) 

FLOATSIZE  " 

= 

32 

LONG  FLOArDIGITS 

= 

9 

LONG'fLO  ATEPSILO  N 

= 

931322574615479E-10 

long'floathrst 

= 

-1.0  •  Z0**127 

long'floatlarge 

= 

2.0**124*(1.0-2.0”(-31)) 

long^floatlast 

= 

.99999999*  2.0*n27 

LONG  FLOATMACHINE  EMAX 

= 

127 

LONG'FLOAT’MACHINE  E.MIN 

= 

-128 

long'floatmachine  mantissa 

= 

39 

long'floatmachine'overflows 

= 

TRUE 

long'floaT’machine'radix 

= 

2 

long"floatmachine~rounds 

= 

FALSE 

L0NG”FL0AT’MANTISSA~ 

= 

31 

long'floatsafe  e\lax 

= 

127 

LONG'’FLOArSAFE"LARGE 

= 

LONG  FLOAT’LAST 

long*'float’safe“small 

= 

0.5  *  2*"*(-127) 

long'floatsize  “ 

= 

48 

Fixed  Point  Types 

Two  kinds  of  anonymous  predefined  fixed  point  types  are  implemented:  fixed  and  iongjixed.  Note  that  these 
names  arc  not  defined  in  package  STANDARD,  but  arc  used  here  only  for  reference. 

For  objects  of  fixed  types,  16  bits  are  used  for  the  representation  of  the  object.  For  objects  of  Iongjixed  types, 
32  bits  are  used  for  the  representation  of  the  object. 

For  fixed  and  Iongjixed  there  is  a  virtual  predefined  type  for  each  possible  value  of  small  {Ada  fL\f  3.5.9],  The 
possible  values  of  small  arc  the  powers  of  two  that  are  representable  by  a  LONG_FLOAT  value. 

The  lower  and  upper  bounds  of  these  types  are: 

lower  bound  of  fixed  types 
upper  bounTof/ired  types 
lower  bound  of  Iongjixed  types 
upper  bound  of  Iongjixed  types 

A  declared  fixed  point  type  is  represented  as  that  predefined  fixed  or  Iongjixed  type  which  has  the  largest  value 
of  small  not  greater  than  the  declared  delta,  and  which  has  the  smallest  range  that  includes  the  declared  range 
constraint.  , 

Any  fixed  point  type  T  has  the  following  attributes: 

T.MACHINE  overflows  =  TRUE 
T’MACHINE'ROUNDS  =  FALSE 


=  -327t^*  smatl_  _ 

32767  *  small 

=  -2  147  483_648  *  small.- 

=  2  ~147  4S3  647  •  small 


Type  DL'R.\T10N 
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DURATlOhrAFT 

DURATION’DELTA 

DURATION’nRST 

DURATION’FORE 

DURATION’LARGE 

DURATION’LAST 

DURATION’MANTISSA 

DURATION’SAFE  LARGE 

DURATION’SAFE'SMALL 

DURATION’SIZE  ~ 

DURATION’SMALL 


5 

DURATION’SMALL 
-131  072.0 
7 

131071999938%5E05 
131  071.0 

31  ■ 

DURATION’LARGE 

DURATION’SMALL 

32 

6.10351562500000E-05  =  2‘*(-14) 


F2.  PragTnas 

This  section  lists  all  language-defined  pragmas  and  any  restrictions  on  their  use  and  effect  as  compared  to  the 

definitions  given  ia^tia  RM. 

Pragma  CONTROLLED 

This  pragma  has  no  effect,  as  no  automatic  storage  reclamation  is  performed  before  the  point  allowed  by  the 

pragma. 

Pragma  ELABORATE 

As  \aAda  RM. 

Pragma  INLINE 

This  pragma  caases  inline  expansion  to  be  performed,  except  in  the  following  cases: 

1.  The  whole  body  of  the  subprogram  for  which  inline  expansion  is  wanted  has  not  been  seen.  This 
ensures  that  recursive  procedures  cannot  be  inline  expanded. 

2.  The  subprogram  call  appears  in  an  expression  on  which  conformance  checks  may  be  applied,  i.e.,  in  a 
subprogram  specification,  in  a  discriminant  part,  or  in  a  formal  part  of  an  entry  declaration  or  accept 
statement. 

3.  The  subprogram  is  an  instantiation  of  the  predefuied  generic  subprograms 
UNCHECKED_CONVERSION  or  UNCHECKED_DEALLOCATION.  Calls  to  such  subprograms  | 
are  expanded  inline  by  the  compiler  automatically. 


4.  The  subprogram  is  declared  in  a  generic  unit.  The  body  of  that  generic  unit  is  compiled  as  a  secon¬ 
dary  unit  in  the  same  compilation  as  a  unit  containing  a  call  to  (an  instance  of)  the  subprogram. 

5.  The  subprogram  is  declared  by  a  renaming  declaration. 

6.  The  subprogram  is  passed  as  a  generic  actual  parameter.  , 

A  warning  is  given  if  inline  expansion  is  not  achieved. 

Note  that  the  primary  optimizing  effect  of  this  implementation  of  inline  expansion  is  the  elimination  or  reduc-  | 
tion  of  parameter  passing  code,  rather  the  reduction  of  basic  subprogram  call  overhead. 
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Pragma  INTERFACE 

This  pragma  is  supported  for  the  language  names  defuied  by  the  enumerated  type  rNTERFACE_LANGUAGE  | 
in  package  SYSTEM.  Languages  other  than  BIF  support  Ada  calls  to  subprograms  whose  bodies  are  written  in  j 
that  language.  Language  BIF  (for  "built-in  function")  supports  inline  insertion  of  assembly  language  macro  invo¬ 
cations;  the  macros  themselves  may  consist  of  executions  of  1750A  hardware  built-in  functions,  or  of  any 
sequence  of  1750A  instructions.  Thus,  pragma  INTERFACE  (BIF)  serves  as  an  alternative  to  machine  code 
insertions. 

Language  ASSEMBLY 

For  pragma  INTERFACE  (ASSEMBLY),  the  compiler  generates  a  call  to  the  name  of  the  subprogram.  The  | 
subprogram  name  must  not  exceed  31  characters  in  length.  Parameters  and  results,  if  any,  are  passed  in  the 
same  fashion  as  for  a  normal  Ada  call  (see  Appendix  P). 

Assembly  subprogram  bodies  are  not  elaborated  at  runtime,  and  no  runtime  elaboration  check  is  made  when 
such  subprograms  are  called. 

Assembly  subprogram  bodies  may  in  turn  call  Ada  program  units,  but  must  obey  all  Ada  calling  and  environ¬ 
mental  conventions  in  doing  so.  Furthermore,  Ada  dependencies  (in  the  form  of  context  clauses)  on  the  called 
program  units  must  etdst.  That  is,  merely  calling  Ada  program  units  from  an  assembly  subprogram  body  will 
not  make  those  program  units  visible  to  the  Ada  Linker. 

A  pragma  INTERFACE  (ASSEMBLY)  subprogram  may  be  used  as  a  main  program.  In  this  case,  the  pro¬ 
cedure  specification  for  the  main  program  must  contain  context  clauses  that  will  (transitively)  name  all  Ada 
program  units. 

If  an  Ada  subprogram  declared  with  pragma  INTERFACE  (ASSEMBLY)  is  a  library  unit,  the  assembled  sub¬ 
program  body  object  code  module  must  be  put  into  the  program  library  via  the  Ada  Library  Injection  Tool  (see 
Chapter  7).  The  Ada  Linker  will  then  automatically  include  the  object  code  of  the  body  in  a  link,  as  it  would  the 
object  code  of  a  normal  Ada  body. 

If  the  Ada  subprogram  is  not  a  library  unit,  the  assembled  subprogram  body  object  code  module  cannot  be  put 
into  the  program  library.  In  this  case,  the  user  must  direct  the  Ada  Linker  to  the  directory  containing  the  object 
code  module  (via  the  /user_rts  qualifier,  see  Section  5.1),  so  that  the  1750A  Linker  can  find  it. 

Language  BIF 

For  pragma  INTERFACE  (BIF),  the  compiler  generates  an  inline  macro  invocation  that  is  the  name  of  the 
subprogram.  The  subprogram  name  must  not  exceed  31  characters  in  length.  Subprogram  parameters  and  | 
results,  if  any,  are  passed  in  the  same  fashion  as  for  a  normal  Ada  call  (see  Appendix  P),  except  that  the  macro 
invacation.icplaces  the  call.  No  macro  arguments  are  passcd_Qn.thc.invocation _  _ _ 

A  macro  file  must  exist  at  the  time  of  the  compile  containing  a  macro  definition  with  the  same  name  as  the  sub¬ 
program.  This  macro  file  should  have  a  file  name  that  is  the  same  as  the  subprogram,  and  a  file  type  of  mac. 

The  file  should  either  be  located  in  the  current  default  directory,  or  be  defined  by  one  of  two  logical  names: 
maclib,  or  the  macro  name  itself.  (See  the  liuerACT  1750A  Assembler  and  Linker  User’s  Manual  for  a  full 
e.xplanation,) 

Languages  JOVIAL  and  FORTRAN  | 

These  languages  may  also  be  specified  for  pragma  INTERFACE,  but  arc  equivalent  to  language  ASSEMBLY,  | 
The  compiler  generates  calls  to  such  subprograms  as  if  they  were  Ada  subprograms,  and  does  not  do  any  | 
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special  data  mapping  or  parameter  passing  peculiar  to  the  InterACT  JOVIAL  or  FORTRAN  compilers. 
Pragma  LIST 
As  inAda  RM. 

Pragma  MEMORY_SIZE 

This  pragma  has  no  effect.  See  pragma  SYSTEM_NAME. 

Pragma  OPTIMIZE 
This  pragma  has  no  effect. 

Pragma  PACK 

This  pragma  is  accepted  for  array  types  whose  component  type  is  an  integer  or  enumeration  type  that  may  be 
represented  in  16  bits  or  less.  The  pragma  has  the  effect  that  in  allocating  storage  for  an  object  of  the  array 
type,  the  object  components  are  each  racked  into  the  next  largest  2"  bits  needed  to  contain  a  value  of  the  com¬ 
ponent  type.  For  example,  integer  components  with  the  range  constraint  -8  ..  7  are  packed  into  4  bits;  boolean 
components  are  packed  into  one  bit. 

This  pragma  is  also  accepted  for  record  types  but  has  no  effect.  Record  representation  clauses  may  be  used  to 
"pack"  components  of  a  record  into  any  desired  number  of  bits;  see  Section  F.6. 

Pragma  PAGE 

As  mAda  RM. 

Pragma  PRIORITY 

As  in  Ada  RM.  See  the  Ada  I750A  Ruiuime  Executive  Programmer’s  Guide  for  how  a  default  priorir/  may  be 
set. 

Pragma  SHARED 

This  pragma  has  no  effect,  in  terms  of  the  compiler  (and  a  warning  message  is  issued).  However,  based  on  the 
current  method  of  code  generation,  the  effect  ot  pragma  SHARED  is  automatically  achieved  for  all  scalar  and 
access  objects. 

Pragma  STORAGE  UNIT 

This  pragma  has  no  effect.  Sec  pragma  SYSTEM_NAME. 

Pragma  SUPPRESS 

Only  the  "identifier"  argument,  which  identifies  the  type  of  check  to  be  omitted,  is  allowed.  The  "[ON  =  >j 
name"  argument,  which  isolates  the  check  omission  to  a  specific  object,  type,  or  subprogram,  is  not  supported. 

Pragma  SUPPRESS  with  DlVTSION_CHECK  and  OVERFLOW_CHECK  has  no  effect.  However,  through 
runtime  executive  customizations  (see  the  Ada  175(1A  Runtime  Executive  Programmer's  Guide),  the  overflow 
interrupts  that  are  used  to  implement  those  checks  may  be  masked.  Pragma  SUPPRESS  with  all  other  checks 
results  in  the  corresponding  checking  code  not  being  generated. 


F-6  Appendix  F  of  the  Ada  Reference  Manual 


Pragma  SYSTEM_NAME 

This  pragma  has  no  effect.  The  only  possible  SYSTEM_NAME  is  MIL  STD_t750A.  The  compilation  of 
pragma  MEMORY_SIZE,  pragma  STORAGE_UNrT,  or  this  pragma  docs  not  cause  an  implicit  recompilation 
of  package  SYSTEM. 


FJ.  Implementation-dependent  Pragmas 


F3.1.  Program  Library  Basis  Pragmas  | 

Certain  pragmas  defined  by  this  Compiler  System  apply  to  Ada  programs  as  a  whole,  rather  than  to  individual  | 
compilation  units  or  declarative  regions.  These  pragmas  are  | 

NO  DYNAMIC  OBJECTS  OR  VALUES  USED,  | 

N0~DYNAMIC“MULTIDIMENSI0NAL  ARRAYS_USED,  and  | 

SET_MACHINE_OVERFLOWS_FALSE~FOR_ANONYMOUS_FIXED.  j 

These  pragmas  apply  on  a  program  library  wide  basis,  and  thus  apply  to  any  and  all  programs  compiled  and  | 
linked  from  a  given  program  library.  The  meanings  of  these  pragmas  is  described  in  the  subsections  below;  the  | 
way  in  which  these  pragmas  are  specified  is  described  in  this  subsection.  | 

These  pragmas  may  only  be  specified  within  the  implementation-defined  library  unit  LIBRARY  PRAGMAS,  | 
which  in  turn  may  only  be  compiled  into  the  Compiler  System  predefined  library.  If  either  of  these  restrictions  | 
are  not  honored,  the  pragmas  have  no  effect.  j 

The  contents  of  this  library  unit  when  delivered  are  | 

package  LIBRARY_PRAGMAS  is 

t(O_0YHAHIC_OBJECTS_OR_VALU6S_USED  :  constant  BOOLEAN  :=  FALSE; 

NO_OYNAMIC_MULTIOIMENSIONAL_ARRAYS_USEO  :  constant  BOOLEAN  :=  FALSE; 
SET_MACHINE_OVERFLOUS_FALSE_FOR_ANONYMOUS_F1XED  :  constant  BOOLEAN  :=  FALSE; 
end  LIBRARY_PRAG«AS; 

In  order  to  specify  any  or  all  of  the  pragmas,  the  source  for  this  package  is  modified  to  include  the  pragmas  | 
after  the  constant  declarations  (the  source  file  is  defined  by  the  logical  name  actada  library  pragmas).  For  j 
example,  j 

package  L1BRARY_PRAGHAS  is  _  _  .  _ _  _  _  .  _ 

NO_OYNAMIC_CBJECTS_OR_VALUES_USEO  :  constant  BOOLEAN  :=  MLSE; 

NO_OYNAHtC_MllLTIOIMEMSIONAL_ARRAYS_USED  :  constant  BOOLEAN  :=  FALSE; 
SET_MACHlNE_OVERFLOUS_FALSE_FOR_ANCNrMOUS_FtXEO  :  constant  BOOLEAN  :=  FALSE; 
pragma  NO_0YNAMIC_08JECTS_0R_VALUES_USED; 

r 

pragma  SET_MACHlNE_OVERFLOUS_FALSE_FOR_ANONYMajS_FIXEO; 


end  LIBRARY_PRACHAS; 
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This  modified  source  is  then  compiled  into  the  predefined  library.  To  do  this,  unit  LIBRARY  PRAGMAS  | 
must  first  be  unlocked  via  Ada  PLU  (see  Chapter  3).  j 

In  addition  to  the  effects  described  in  the  subsections  below,  the  pragmas  have  the  effect  of  changing  the  initiali-  | 
zation  value  to  TRUE  for  the  corresponding  constant  objects.  j 

If  unit  LIBRARY_PRAGMAS  is  modified  and  compiled  by  the  user,  il  must  be  compiled  before  any  other  user  | 
compilation  unit.  If  it  is  not,  the  program  wilt  be  erroneous. 

Note  that  while  these  pragmas  apply  to  an  entire  program  library,  it  is  possible  to  create  more  than  one  pro-  | 
gram  iibrary  (via  the  Ada  PLU  command  creatc/root;  see  Chapter  3),  with  each  library'  having  these  pragmas  | 
specified  or  not  according  to  user  desire.  j 


¥32.  Pragma  NO_DYNAiMIC_OBJECTS_OR_VALUES_USED 

This  pragma  works  on  a  program  library  basis.  See  the  subsection  at  the  beginning  of  this  section  for  how  such 
pragmas  are  used. 

Use  of  this  pragma  infoniis  the  compiler  that  alt  created  objects  and  all  computed  values  have  statically  known 
sizes.  The  language  usages  that  do  not  meet  this  assertion  are 

•  TIMAGE  for  integer  types 

•  arrays  objects  or  values  of  (sub)types  with  non-static  index  constraints,  or  with  component  subtypes 
with  non-static  index  constraints 

•  array  aggregates  of  an  unconstrained  type 

•  catenations  (even  with  statically  sized  operands) 

•  collections  with  non-static  sizes 

Programs  that  violate  the  assertion  of  this  pragma  are  erroneous. 

The  effect  of  this  pragma  is  to  use  a  different,  and  more  efficient,  set  of  compiler  protocols  for  runtime  stack 
organization  and  register  usage.  These  variant  protocols  are  described  in  Appendix  P. 


FJJ.  Pragma  NO_DYNAVIIC_.MULTIDIMENSIONAL_ARRAYS_USED 

This  pragmAWorks  on  a  program  library  basis^ce  thc.subscclion_at  the  beginning  of  this  section  for  howsneir 
pragmas  are  used. 

Use  of  this  pragma  informs  the  compiler  that  all  declarations  of  multidimensional  array  types  or  objects  have 
static  index  constraints  [Ada  RM  4.9  (I/)],  and  that  the  component  subtypes  of  such  arrays,’  if  arrays  them¬ 
selves,  also  have  static  index  constraints.  That  is,  all  multidimensional  arrays  have  statically  known  size.  Pro¬ 
grams  that  violate  the  assertion  of  this  pragma  .arc  erroneous. 

‘  r 

The  effect  of  this  pragma  is  to  use  a  special  technique,  known  as  bias  vectors,  in  the  generated  code  for  the  cal¬ 
culation  of  array  indexed  component  offsets  for  multi-dimensional  arrays.  This  technique  involves  building  a 
data  structure  that  contains  some  precomputed  offsets,  and  then  indexing  into  that  structure.  The  major  advan¬ 
tage  of  this  technique  is  that  few  or  no  multiplication  operations  need  be  generated.  _  . 
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The  bias  vector  data  structures  are  allocated  as  part  of  elaboration  of  the  constrained  array  subtype  declaration 
(or  object  declaration  that  implicitly  declares  such  a  subtype). 

Bias  vectors  are  not  used  if  the  array  index  base  type  is  LONG  INTEGER  or  if  pragma  PACK  applies  to  the 
array. 


FJ.4.  Pragmas  ESTABLISH  OPTIMIZED  REFERENCE  and  ASSUME  OPTIMIZED  REFERENCE  | 

These  pragmas  are  used  to  direct  the  compiler  to  generate  code  that  more  efficiently  references  objects  in  a  | 
package.  This  efficiency  is  achieved  by  using  a  base  register  to  address  the  package  objects.  | 

Pragma  ESTABLISH_OPTIMIZED_REFERENCE  instructs  the  compiler  to  load  a  base  register  with  the  | 
beginning  address  of  the  objects  in  the  designated  package,  and  to  access  such  objects  using  the  base  register.  | 
The  pragma  has  the  form  [ 

pragma  ESTABLISH_OPTIMIZED_REFERENCE  (package jaume); 

The  pragma  may  appear  anywhere  within  a  program  unit;  the  load  and  subsequent  usage  of  the  base  register  [ 
will  begin  at  the  point  of  the  pragma  appearance.  The  pragma  applies  only  to  the  program  unit  it  appears  in;  it  | 
does  not  apply  to  program  units  nested  within  that  unit.  | 

Pragma  ASSUME  OPTIMIZED_REFERENCE  instructs  the  compiler  to  assume  that  the  designated  | 
package’s  beginning  address  has  been  loaded  into  a  base  renter,  and  to  access  such  objects  using  the  base  j 
register.  The  pragma  has  the  form  j 

pragma  ASSUME_OPTIMI2I!ED_REFERENCE  (package  jurnc); 

The  pragma  should  appear  at  the  beginning  of  the  declarative  part  of  a  program  unit.  The  pragma  applies  only  | 
to  the  program  unit  it  appears  in;  it  does  not  apply  to  program  units  nested  within  that  unit.  It  is  not  necessary  j 
to  use  this  pragma  after  an  instance  of  pragma  ESTABLISH_OPTIMIZED_REFERENCE;  rather,  it  must  be  | 
used  in  program  units  that  are  called  from  the  unit  that  contains  the  pragma  j 
ESTABLISH_OPTIMIZED_REFERENCE.  If  there  are  intervening  (in  terms  of  calls)  units  between  the  unit  ] 
containing  pragma  ESTABLISH_OPnMIZED_REFERENCE  and  the  unit  desiring  to  use  pragma  1 
ASSUME  OPTIMIZED  REFERENCE,  then  those  intervening  units  must  also  use  pragma  j 

assume'optimized^reference.  I 

The  pragmas  apply  only  to  packages  that  are  library  units.  Only  the  objects  in  the  specification  part  of  the  | 
package,  and  'vithi.u  base  register  range  of  the  package  beginning,  are  accessed  by  base  register.  | 

Only  one  base  register  is  used  by  these  pragmas,  that  bcingTCgisfcr  l2.  Thus,  the  pragmas  can  be  in  eifect  for  [ 
only  one  package  at  any  given  time  during  execution.  ^  | 

An  c.xample  of  the  use  of  these  pragmas:  -  .  -  ,  | 

package  GL08AI._VARS  is 

end  GL08AL_VARS;  ' 

with  GI.OBAL_VARS;  use  GL08AL_VARS; 
procedure  P  is 

pragma  ESTA8LlSH_0PTtMtZE[)_REFER£NCE  (GLQ8AL_VARS); 
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procedure  INNER  is 

pragma  ASSUHE_0PT1MIZED_R£FERENCE  <CLOBAL_VARS); 
begin 

end  INNER; 
begin 

INNER; 

end  P; 


FJ  j.  Pragma  INTERFACES  FELLING  j 

This  pragma  is  used  to  define  the  external  name  of  a  subprogram  written  in  another  language,  if  that  external  | 
name  is  different  from  the  subprogram  name  (if  the  names  are  the  same,  the  pragma  is  not  needed).  The  j 
pragma  has  the  form  j 

pragma  INTERFACE_SPELLING  (subprogram  jidsaz,  external jxame  stringjiteral); 


The  pragma  should  appear  after  the  pragma  INTERFACE  for  the  subprogram.  This  pragma  is  useful  in  cases  | 
where  the  desired  external  name  contains  characters  that  arc  not  valid  In  Ada  identifiers.  For  example,  j 


procedure  C0NNECT_8US  (SIGNAL  :  INTEGER); 
pragma  INTERFACE  (ASSEMBLY,  CONN£CT_aUS); 
pragma  INTERFAC£_SP£LLING  (CONN£CT_iuS,  “SCOHNECT.BUS'*); 


FJ.6.  Pragma  SET_MACHINE_OVERFLOWS_FALSE_FOR_ANONYMOUS_FlXED  ] 

This  pragma  works  on  a  program  library  basis.  See  the  subsection  at  the  beginning  of  this  section  for  how  such  [ 
pragmas  are  used.  j 

The  effect  of  this  pragma  is  that  any  fixed  point  type  T  of  anonymous  predefined  fixed  type  (i.e.,  represented  in  | 
16  bits)  has  the  attribute  j 

T’\LACHINE_OVERFLOWS  =  FALSE 

such  that  NUMERIC_ERROR  is  not  raised  in  overflow  situations  [Ada  RM  4.5.7  (7)] .  | 

The  result  of  operations  in  overflow  situations  is  either  the  lower  or  upper  bound  of  the  "virtual"  predefined  | 

typ^for  T  ([Ada  RM  3.5.9  (10)\,  this  documejit  Section  F.IL  depending  on  the. direction  of xrvetfl^  -These _ 

bounds  are  -32_168  *  T’SMALL  and  32_7G7  *  T’SMALL  respectively.  These  bounds  will  equal  T’FIRST  and  | 
TLAST  if  the  range  constraint  for  T  is  so  declared.  <•  j 

Note  that  this  implementation  of  fixed  point  types  relics  on  the  1750A  fixed  point  overflow  interrupt  being  | 
enabled  and  not  masked;  any  user  exit  or  customization  routines  in  the  Ada  runtime  executive  must  not  do  j 
differently. 
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F3J.  Pragma  SUBPROGRAM_SPELLING  | 

This  pragma  is  used  to  define  the  external  name  of  an  Ada  subprogram.  Normally  such  names  are  compiler-  ( 
generated,  based  on  the  program  library  unit  number.  The  pragma  has  the  form  j 

pragma  SUBPROGRAM_SPELLING  (subprogram  jiamz  [,extemaI_name_stTingJiteral]); 

The  pragma  is  allowed  wherever  a  pragma  INTERFACE  would  be  allowed  for  the  subprogram.  If  the  second  j 
argument  is  omitted,  the  subprogram  name  is  used  as  the  external  name.  j 

This  pragma  is  useful  in  cases  where  the  subprogram  is  to  be  referenced  from  another  language. 


F.4.  Implementation-dependent  Attributes 
None  are  defined. 


Fj.  Package  SYSTEM 

The  specification  of  package  SYSTEM  is: 


package  SYSTEM  is 


type  ADDRESS 
ADDRESS  NULL 
ADDRESS“ZERO 


is  new  INTEGER; 

:  constant  ADDRESS  :  =  0; 
:  constant  ADDRESS  ;  =  0; 


type  Name 


is  (MIL_STD_1750A); 


SYSTEM_NAME 

STORAGEUNIT 

MEM0RY_SIZE 

MIN  INT 
MAX  INT 

max'digits 

MAX"\LANTISSA 
FINE~DELTA 
- TICX^ 

subtype  PRIORITY 

type  INTERFACE_LANGUAGE 


:  constant  NAME  :  =  MIL  STD  1750A; 

:  constant  :=  16; 

:  constant :  =  64  *  1024; 

;  constant  :=  -2_147_4S3_647-1; 

:  constant ;  =  2  147  483  647; 

:  constant  :=  9; 

;  constant  :=  31; 

:  constant  :=  1.0  /  2.0  **  MAX_MANTISSA; 
'“fconstanF:  =  0DDD_{JT0;  ~ 

is  INTEGER  range  0..255; 

is  (ASSEMBLY,  BIF,  JOVIAL,  FORTRAN); 


end  SYSTE.M; 
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F.6.  Representation  Clauses 

In  general,  no  representation  clauses  may  be  given  for  a  derived  type.  The  representation  clauses  that  arc 
accepted  for  non-dcrived  types  arc  described  by  the  following: 

Length  Clause 

The  compiler  accepts  three  kinds  of  length  clauses,  specifying  the  number  of  storage  units  to  be  reserved  for  a 
collection  (attribute  designator  ST0RAGE_SI2E),  the  number  of  storage  units  to  be  reserved  for  an  activation 
of  a  task  (STORAGE_SI21E),  or  the  smalt  for  a  fixed  point  type  (SMALL).  Length  clauses  specifMng  object  | 
size  for  a  type  (SIZE)  are  not  allowed. 

Enumeration  Representation  Clause 

Enumeration  representation  clauses  may  only  specify  representations  in  the  range  of  the  predefined  type 
INTEGER. 

Record  Representation  Clause 

In  terms  of  allowable  component  clauses,  record  components  fall  into  three  class“s: 

•  integer  and  enumeration  types  that  may  be  represented  in  16  bits  or  less; 

•  statically-bounded  arrays  or  records  composed  solely  of  the  above; 

•  all  others. 

Components  of  the  "16-bit  integer/enumeration"  class  may  be  given  a  component  clause  that  specifies  a  storage 
place  at  any  bit  offset,  and  for  any  number  of  bits,  as  long  as  the  storage  place  is  large  enough  to  contain  the 
component  and  does  not  cross  a  word  boundary. 

Components  of  the  “array/record  of  16-bit  integer/enumcration"  class  may  be  given  a  component  clause  that 
specifies  a  storage  place  at  any  bit  offset,  if  the  size  of  the  array/record  is  less  than  a  word,  or  at  a  word  offset 
otherwise,  and  for  any  number  of  bits,  as  long  as  the  storage  place  is  large  enough  to  contain  the  component 
and  none  of  the  individual  integer/enumeration  elements  of  the  array/record  cross  a  word  boundary. 

Components  of  the  "all  others  '  class  may  only  be  given  component  clau.ses  that  specify  a  storage  place  at  a  word 
offset,  and  for  the  number  of  bits  normally  allocated  for  objects  of  the  underlying  base  type. 

Components  that  do  not  have  component  clauses  are  allocated  in  storage  places  beginning  at  the  ne.xt  word 
boundary  following  the  storage  place  of  the  last  component  in  the  record  that  has  a  component  clause. 


Alignment  clauses  are  not  allowed 
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F.7.  Implementation-dependent  Names  for  Implementation-dependent  Components 
None  arc  defined. 


F.3.  Address  Clauses 

Address  clauses  arc  supported  for  objects  that  are  not  constants,  for  subprogram  units,  and  for  interrupt  | 
entries.  Address  clauses  arc  not  supported  for  package  or  task  units,  and  in  general  are  not  supported  for  con-  | 
stant  objects. 

Address  Clause  for  Objects 

Address  clauses  for  objects  must  be  static  expressions  of  type  ADDRESS  in  package  SYSTEM.  Address 
clauses  for  objects  do  not  cause  the  object  to  be  placed  at  that  address,  but  do  ensure  that  all  references  to  the 
object  in  the  generated  code  are  to  that  address.  Thus,  it  is  the  user’s  responsibility  to  reserve  space  for  the 
object  at  that  address,  via  1750A  Linker  control  statements. 

Type  ADDRESS  is  a  16-bit  signed  integer.  Thus,  addresses  in  the  memory  range  16#8000#..16#FFFF#  (Le., 
the  upper  half  of  1750A  memory)  must  be  supplied  as  negative  numbers,  since  the  positive  (unsigned)  interpre¬ 
tations  of  those  addresses  are  greater  than  ADDRESS’LAST.  To  illustrate: 

X;  INTEGER;  _ 

for  X  use  at  16#7FFF#;  -  legal 

Y :  INTEGER; 

for  Y  use  at  16#FFFF#;  --  illegal 
Y :  INTEGER; 

for  Y  use  at  -1;  --  legal,  equivalent  to  unsigned  16#FFFF# 

The  hexadecimal  address  can  be  retained,  and  user  computation  of  the  negative  equivalent  avoided,  by  use  of 
the  following  construct: 

ADDR_FFFF  :  constant  :=  16 #FFFF# -65536; 

Y :  INTEGER; 

for  Y  use  at  ADDR  FFFF; 

Address  Clause  for  Subprogram  Units  _ [ 

Address  clauses  for  subprograms  must  be  static  expressions  of  t\pe  ADDRESS  in  package  SYSTEM.  The  code  | 
of  the  subprogram  body  will  be  placed  at  that  address.  There  is  no  need  for.  the  user  to  reserve  space  for  the  ( 
subprogram  code  via  the  1750A  Linker,  as  in  the  case  for  address  clauses  for  objects.  •  .  -  _ , 

Address  Clause  for  Interrupt  Entries 

Address  clauses  for  interrupt  entries  do  not  use  type  SYSTEM-ADDRESS;  rather,  the  address  clause  must  be  a 
static  integer  expression  in  the  range  0..15,  naming  the  corresponding  1750A  interrupt. 

The  following  restrictions  apply  to  interrupt  entries.  The  corresponding  accept  statement  must  have  no  formal 
parameters  and  must  not  be  part  of  a  select  statement.  Direct  calls  to  the  entry  arc  not  allowed.  If  any 
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exception  can  be  raised  from  within  the  accept  statement,  the  accept  statement  must  include  an  exception 
handler.  The  accept  statement  cannot  include  tasking  or  delay  statements. 

When  the  accept  statement  is  encountered,  the  task  is  suspended.  If  the  specified  interrupt  occurs,  execution  of 
the  accept  statement  begins.  When  control  reaches  end  of  the  accept  statement,  the  special  interrupt  entry  pro¬ 
cessing  ends,  and  the  task  continues  normal  e.xecution.  Control  must  again  return  to  the  point  where  the  accept 
statement  is  encountered  in  order  for  the  task  to  be  suspended  again,  awaiting  the  interrupt. 

There  are  many  more  details  of  how  interrupt  entries  interact  with  the  1750A  machine  state  and  with  the  Run¬ 
time  Executive.  For  these  details,  see  the  Ada  17SQA  Runtime  Executive  Programmer's  Guide. 


F.9.  Unchecked  Conversion 

Unchecked  conversion  is  only  allowed  between  values  of  the  same  size.  In  addition,  if  | 
UNCHECKED  CONVERSION  is  instantiated  with  an  array  type,  that  type  must  be  statically  constrained. 
Note  also  that  calls  to  UNCHECKED_CONVERSION-instaniiated  functions  are  always  generated  as  inline 
calls  by  the  compiler. 


F.IO.  Input-Output 

The  predefined  library  generic  packages  and  packages  SEQUENTIAL_IO,  DIRECT_IO,  and  TEXT_IO  are  | 
supplied.  However,  file  input-output  is  not  supported  except  for  the  standard  output  file.  Any  attempt  to  create  | 
or  ooen  a  file  wiU  result  in  USE_ERROR  being  raised,  as  will  any  attempt  to  perform  operations  upon  the  j 
standard  input  file. 

TEXT  10  output  operations  to  the  standard  output  file  are  implemented  as  output  to  some  visible  device  for  a 
given  implementation  of  MIL-STD-1750A.  Depending  on  the  implementation,  this  may  be  a  console,  a  works¬ 
tation  disk  drive,  simulator  output,  etc. 

The  range  of  the  type  COUNT  defined  in  TEXT  10  is  0..  LONG  INTEGER’LAST. 

The  predefined  library  package  LOW_LEVEL_IO  is  empty. 

In  addition  to  the  predefined  library  units,  a  package  STRING_OUTPUT  is  also  included  in  the  predefined 
library.  This  package  supplies  a  very  small  subset  of  TE.XT_IO  operations  to  the  standard  output  file.  The 
specification  is: 

package  STRING_OUTPUT  is 

- procedure  PUT  (ITEM  ;  in  STRING;;  ~ 

procedure  PUT_LINE  (ITEM  :  in  STRING); 
procedure  NEW  LINE; 

end  STRING  OUTPUT;  _ 

By  using  the  ’IMAGE  attribute  function  for  integer  and  enumeration  types,  a  fair  amount  of  output  can  be  done  | 
using  this  package  instead  of  TEXT  lO.  The  advantage  of  this  is  that  STRING  OUTPUT  is  smaller  than  | 
TEXT  lO  in  terms  of  object  code  size,  and  faster  in  terms  of  execution  speed. 
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F.ll.  Other  Chapter  13  Areas 

The  following  language  features,  defined  in  [Ada  IL\{  IJ],  are  supported  by  the  compiler: 

•  representation  attributes  [7J.7.2i  13.7.3\ 

•  unchecked  storage  deallocation  [  13. 10.  i] 

Note  that  calls  to  UNCHECKED_DEALLOCATION-instantiated  procedures  are  always  generated  as  inline,  j 
calls  by  the  compiler.  | 

Change  of  representation  [13.6]  and  machine  code  insertions  [fJ.cS]  are  not  supported  by  the  compiler.  Note  | 
that  pramga  INTERFACE  (BIF)  may  be  used  as  an  alternative  to  machine  code  insertions. 


F.12.  Miscellaneous  Implementation-dependent  Characteristics 
Uninitialized  Variables 

There  is  no  check  to  detect  the  use  of  uninitialized  variables.  The  effect  of  a  program  that  refers  to  the  value  of 
an  uninitialized  variable  is  undefined.  A  cross-reference  listing  may  be  of  use  in  finding  such  variables. 


F.13.  Compiler  System  Capacity  Limitations 

The  following  capacity  limitations  apply  to  Ada  programs  in  the  Compiler  System; 

•  the  space  available  for  the  constants  of  a  compilation  unit  is  32K  words; 

•  the  space  available  for  the  static  data  of  a  compilation  unit  is  32K  words; 

•  any  single  object  can  not  exceed  32K  words; 

•  the  space  available  for  the  objects  local  to  a  subprogram  or  block  is  32K  words; 

•  the  names  of  all  identifiers,  including  compilation  units,  may  not  exceed  the  number  of  characters 
specified  by  the  INPUT  LINELENGTH  component  in  the  compiler  configuration  file  (see  Section 
4.1.4); 

•  the  physical  size  of  a  sublibrary  may  not  exceed  16384  VAX/VMS  blocks. 

Thc^above  limitations  arc  all  diagnosed  by  thcxompiIerrMosrmay"be  circumvented  straightforwardlTljyTismg' 
separate  compilation  facilities  or  by  creating  new  sublibraries. 
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TEST  PARAMETERS 


Certain  tests  in  the  ACVC  make  use  of  implementation-dependent  Vcilues, 
such  as  the  maximum  length  of  an  input  line  and  invcilid  file  names.  A 
test  that  makes  use  of  such  values  is  identified  by  the  extension  .TST 
in  its  file  name.  Actual  values  to  be  substituted  are  represented  by 
names  that  begin  with  a  dollar  sign.  A  value  must  be  substituted  for 
each  of  these  names  before  the  test  is  run.  The  values  used  for  this 
validation  are  given  below. 


Name  and  Meaning  Vcilue 


$BIG_ID1  <1--125  =>  'A',  126  =>  'l'> 

Identifier  the  size  of  the 

maximum  input  line  length  with 
varying  last  character. 

$BIG_ID2  <1..125  =>  'A',  126  =>  '2'> 

Identifier  the  size  of  the 

naxiraum  input  line  length  with 

varying  last  character. 

$BIG_ID3 

Identifier  the  size  of  the 

maximum  input  line  length  with 

varying  middle  character. 

$BIG_ID4 

Identifier  the  size  of  the 

maximum  input  line  length  with 

varying  midile  character. 

$BIG_INT_LrT 

An  integer  literal  of  value  298 
with  enough  leading  zeroes  so 
than,  it  is  the  size  of  the 

maximum  line  length. 

$BIG_REAL_LIT  <1..120  =>  'O',  121.. 126  => 

A  univers2il  real  literal  of  '69.0E1'> 
value  690.0  with  enough  leading 
zeroes  to  be  the  size  of  the 
maximum  line  length. 


<1..123  =>  'O',  124.. 125  => 
'298'> 


<1..62  =>  'A',  62  =>  '3', 
64.. 126  =>  'A'> 


<1..62  =>  'A',  63  =>  '4', 
64.. 126  =>  'A'> 
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$BIG_STRING1 

A  string  literaLL  which  when 
catenated  with  BIG_STRING2 

yields  the  image  of  BIG_ID1 . 

<1  =>  2.. 64  => 

•  M  I  ^ 

'A',  65  => 

$BIG_STRING2 

A  string  litsrcil  which  when 
catenated  to  the  end  of 
BIG  STRINGl  yields  the  image  of 
BIG_ID1. 

<1  =>  2.. 63  => 

•1',  65  =>  ""> 

'A',  64  => 

$BIANKS 

A  sequence  of  blanks  twenty 
characters  less  than  the  size 
of  the  maxirnum  line  length. 

106 

$OOUOT_IAST 

A  universal  integer  litercLL 
whose  value  is 

TEXr_IO .  COUNT '  LAST . 

2_147_483_647 

$FIELD  LAST 

A  universal  integer 
literal  whose  value  is 
TEXT  10.  FIELD 'LAST. 

35 

$FIIE_^^?OTJCCTH_BAD_a^APS 

An  extemcil  file  name  that 
either  contains  invalid 

characters  or  is  too  long. 

BAD_FIIENAME_1 

$FIIEJW!EJOT11J<IID_CARD_CHAR 

An  external  file  name  that 
either  contains  a  wild  caird 
character  or  is  too  long. 

BAD_FII£NAME_2 

$GREATERJIHAN_IXnRATICN 

A  universal  real  literal  that 
lies  between  DUBATICN' BASE 'LAST 
and  CUEATICN'LAST  or  any  value 
in  the  range  of  DURATICN. 

131_072.0 

$GREATERJIHAN_CURATICN_BASE_LAST 

A  universcil  real  literal  that  is 
greater  than  DURATICN 'BASE 'LAST. 

131_072.0 

$iiiegal_e:<teriial_file_namei 

An  external  file  name  which 
contains  invalid  characters. 

ILLE1GAL_FILE_NAME_1 
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$TT  I  ITC;AT.j:yTTTO^I._FTIE III£GAL_FILE_NAME_2 
An  external  file  name  which 
is  too  long. 

$IinEGER_FIRST  -32_768 

A  universal  integer  literal 
^ose  value  is  INTEGER'FIRST. 

$INrEGER_rAST  32_767 

A  universal  integer  litercLL 
whose  Vcilue  is  INTEGER'LAST. 

$1OTEGER_IAST_PIUS_1  32_768 

A  universal  integer  literal 
whose  valxoe  is  INTEGER' LAST  +  1. 

$LESS_'IHAN_DURATION  -131_073-0 

A  universcil  recil  literal  that 
lies  between  DURATION 'BASE 'FIRST 
and  DURATION 'FIRST  or  any  value 
in  the  range  of  DURATION. 

$IESSJIHAN_DURATION_BASE_FIRST  -131_073.0 

A  universcil  real  literal  that  is 
less  than  DURATION 'BASE 'FIRST. 

$MAX_DIGns  9 

Maximum  digits  supported  for 
floating-point  types. 

$MAX_IN_IZN  126 

Maximum  input  line  length 
permitted  by  the  implementation. 

$MAX_INr  2147483647 

A  universal  integer  literal 
whose  value  is  SYSTEM. MAX_INr. 

$MAX_INT_PUJS_1  2147483648 

A  universal  integer  literal 
whose  value  is  SYSTEM. MAX_INTM-1. 

$MAX_IEN_INr_EASED_LTrERAL  <1..2  =>  '2:',  3.. 123  => 

A  universal  integer  based  'O’,  124.. 126  =>  '11:'> 
literal  whose  value  is  2 #11# 
with  enough  leading  zeroes  in 
the  mantissa  to  be  MAX_IN_IZN 
long. 
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$MAX_I£NJ?EAL_BASED_LaTERA^  <1. .  3  =>  '  16 : ' ,  4 . .  122  => 

A  universal  real  based  literal  'O',  123..  126  =>  'F.E: '> 
vAiose  value  is  16:  F.E:  with 
enco^  leading  zeroes  in  the 
mantissa  to  be  MAX_IN_LEN  long. 


$MAXjSTRIlK;_LrTERAL  <1  =>  ,  2.. 125  =>  'A', 

A  string  literal  of  size  126  =>  ""> 

MAX_IN_LEN,  including  the  quote 
characters. 


$MIN_INr  -2147483648 

A  universal  integer  literal 
viiose  value  is  SYSTEM.MIN  INT. 


$NAME  NojSuchJType 

A  native  of  a  predefined  numeric 
type  other  than  FIQAT,  INTEGER, 

SHORr_FI£lAr,  SHOKr_INrBGER, 

LC»iG_FI£lAT,  or  L3NG_INrEGER. 

$NEG_BASED_INr  16#FFFFFFFE# 

A  based  integer  literal  whose 
hi<^est  order  nonzero  bit 
fcills  in  the  sign  bit 
position  of  the  representation 
for  SYSTEM.MAX  INT. 
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APPENDIX  D 


WrraPo^WN  TESTS 


Sene  tests  are  withdrawn  fron  the  ACVC  because  they  do  not  conform  to 

the  Ada  Standard.  The  following  28  tests  had  been  withdrawn  at  the  time 

of  validation  testing  for  the  reasons  indicated.  A  reference  of  the 

form  "Al-ddddd"  is  to  an  Ada  Commentary. 

B28003A:  A  basic  declaration  (line  36)  wrongly  follorfs  a  later 
declaration. 

E28005C:  This  test  requires  that  'PRA34A  LIST  ((»J) ; '  not  appear  in  a 
listing  that  has  been  suspended  by  a  previous  "pragma  LIST 
(OFF) the  Ada  Standard  is  not  clear  on  this  point,  and  the 
matter  will  be  reviewed  by  the  APG. 

C34004A:  The  expression  in  line  168  wrongly  yields  a  value  outside  of 
the  range  of  the  tairget  type  T,  raising  CXa^STRAINr_ERRDR. 

C35502P:  Equality  operators  in  lines  62  &  69  should  be  inequality 
operators. 

A35902C:  Line  17 's  assignment  of  the  nonimal  upper  bound  of  a 
fixed-point  type  to  an  object  of  that  type  raises 
a:NSTRAINr_ERPCR,  for  that  value  lies  outside  of  the  actual 
range  of  the  type. 

C35904A:  The  elaboration  of  the  fixed-point  subtype  on  line  28  wrongly 
raises  CX:NSTRAINT_ERRDR,  because  its  upper  bound  exceeds  that 
of  the  type. 

C35904B:  The  svibtype  declaration  that  is  expected  to  raise 
a:NSTRAINr_ERRDR  when  its  compatibility  is  checked  against  that 
of  various  types  passed  as  actual  generic  peuameters,  may  in 
fact  raise  NUMERIC_ERRCR  or  CCNSTRAINr_ERRDR  for  reasons  not 
anticipated  by  the  test. 

C35A03E,  These  tests  assume  that  attribute  'MANTISSA  returns  0  when 

&  R:  applied  to  a  fixed-point  type  with  a  null  range,  but  the  Ada 
Standard  doesn't  support  this  assumption. 

C37213H:  The  subtype  declaration  of  SCCNS  in  line  100  is  wrongly 
expected  to  raise  an  exception  when  elaborated. 

C37213J:  The  aggregate  in  line  451  wrongly  raises  CENSTRAINr_ERRCR. 
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C37215C, 
E,  G,  H; 

C38102C: 

C41402A: 

C45332A: 

C45614C: 

E66001D: 

A74106C, 

C85018B, 

C37B04B, 

CC1311B: 

BC3105A: 

ADIAOIA: 

CE2401H: 

CE3208A: 


Vcurious  discriminant  constraints  are  wrongly  expected 
to  be  incciipatible  with  type  ccais. 

The  fixed-point  conversion  on  line  23  wrongly  raises 
CaiSTRAINr_ERROR. 

'STORAGE_SIZE  is  wrongly  applied  to  an  object  of  an  access 
type. 

The  test  expects  that  either  an  expression  in  line  52  will 
raise  an  exceprtiion  or  else  MACHINEjCJVERFKWS  is  FALSE. 
However,  an  inplementation  may  evciliiate  the  expression 
correctly  losing  a  type  with  a  wider  range  than  the  base  type  of 
the  operands,  and  MACHINE_OVERFI£WS  may  still  be  TRUE. 

REPORT.  I  DENT_INT  has  an  argument  of  the  wrong  type 
(IONG_INrEGER)  . 

Wrongly  edlcws  either  the  acceptance  or  rejection  of  a 
parameterless  function  with  the  same  identifier  as  an 
enumeration  literal;  the  function  must  be  rejected  (see 
Commentary  AI-00330) . 

A  bound  specified  in  a  fixed-point  subtype  declciration 
lies  outside  of  that  calculated  for  the  base  type,  raising 
CONSTRAINr_ERRDR.  Errors  of  this  sort  occur  re  lines  37  &  59, 
142  &  143,  16  &  48,  and  252  &  253  of  the  four  tests, 

respectively  (and  possibly  elsevhere) . 

Lines  159 . .  168  are  wrongly  expected  to  be  illegal ;  they  are 
legal. 

The  declciration  of  subtype  INTI  raises  CX»ISTRAINT_ERRDR  for 
inplementations  that  select  INT'SIZE  to  be  16  or  greater. 

The  record  aggregates  in  lines  105  &  117  contain  the  wrong 
values. 

This  test  expects  that  an  attempt  to  open  the  default  output 
file  (after  it  was  closed)  with  mode  IN_FIIE  raises  NMffi_ERROR 
or  USE_ERROR;  by  Commentary  AI-00048,  MDDE_ERRDR  should  be 
raised. 
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